home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 21 / Tiger_Disk_021_19xx_Tiger-Crew-Disk_de_Side_A.d64 / spg_demo grafik (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  69 lines
  1. 10 ifpeek(49234)<>asc("s")thenload" sprite*",8,1
  2. 20 sys49152
  3. 100 print"[147][155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  4. 110 print" *** sprite-graphics - grafik-demo *** "
  5. 120 poke53280,6:poke53281,6
  6. 130 !gr1;gn0;gc14;ge;gx84;gy67;gi;gp1
  7. 135 !ds 255,255,255,255,255,255,255,255
  8. 140 fori=1to20:!tp8,2+i,"text hinter der grafik!":next:print""
  9. 150 t$="punkte (taste = ende)":gosub50000
  10. 160 gosub1000
  11. 170 t$="linien (taste = ende)":gosub50000
  12. 180 gosub1100
  13. 190 t$="rechtecke (taste = ende)":gosub50000
  14. 200 gosub1200
  15. 210 t$="bloecke (taste = ende)":gosub50000
  16. 220 gosub1300
  17. 230 t$="bloecke mit muster (taste = ende)":gosub50000
  18. 240 gosub1400
  19. 250 t$="schmale grafik (taste)":gosub50000
  20. 260 poke198,0:!gw0;gx132:wait198,63
  21. 270 t$="breite grafik (taste)":gosub50000
  22. 275 !gw1;gx84:poke198,0:wait198,1
  23. 280 t$="inverse grafik (taste)":gosub50000
  24. 290 poke198,0:!gi:wait198,63
  25. 300 t$="normale grafik (taste)":gosub50000
  26. 310 poke198,0:!gi:wait198,63
  27. 320 poke198,0:!tf0,5,7,1,32:goto130
  28. 1000 rem punkte
  29. 1005 !dm0:k=0:poke198,0
  30. 1010 x=96*rnd(ti):y=168*rnd(ti)
  31. 1020 !tp0,5,k:!ddx,y:k=k+1:ifpeek(198)=0then1010
  32. 1030 return
  33. 1100 rem linien
  34. 1110 !tf0,5,7,1,32;ge;gi:k=0:poke198,0
  35. 1120 x1=96*rnd(ti):y1=168*rnd(ti)
  36. 1130 x2=96*rnd(ti):y2=168*rnd(ti)
  37. 1140 !dlx1,y1,x2,y2;tp0,5,k:k=k+1:ifpeek(198)=0then1120
  38. 1150 return
  39. 1200 rem rechtecke
  40. 1210 !tf0,5,7,1,32;ge;gi:k=0:poke198,0
  41. 1220 x1=96*rnd(ti):y1=168*rnd(ti)
  42. 1230 x2=(96-x1)*rnd(ti):y2=(168-y1)*rnd(ti)
  43. 1240 !drx1,y1,x2,y2;tp0,5,k:k=k+1:ifpeek(198)=0then1220
  44. 1250 return
  45. 1300 rem bloecke
  46. 1310 !tf0,5,7,1,32;ge;gi;dm2:k=0:poke198,0
  47. 1320 x1=96*rnd(ti):y1=168*rnd(ti)
  48. 1330 x2=(96-x1)*rnd(ti):y2=(168-y1)*rnd(ti)
  49. 1340 !dbx1,y1,x2,y2;tp0,5,k:k=k+1:ifpeek(198)=0then1320
  50. 1350 return
  51. 1400 rem bloecke mit muster
  52. 1410 !tf0,5,7,1,32;ge;gi;dm3:k=0:p=0:poke198,0:!tc 8,3,23,20,6:restore
  53. 1420 fori=0to7:readm(i):next:!dsm(0),m(1),m(2),m(3),m(4),m(5),m(6),m(7)
  54. 1422 ifp=4thenp=-1:restore
  55. 1425 x1=96*rnd(ti):y1=168*rnd(ti)
  56. 1430 x2=(96-x1)*rnd(ti):y2=(168-y1)*rnd(ti)
  57. 1440 !dbx1,y1,x2,y2;tp0,5,k:k=k+1:p=p+1:ifpeek(198)=0then1420
  58. 1450 return
  59. 1460 rem muster
  60. 1462 data 85,170,85,170,85,170,85,170
  61. 1464 data 1,2,4,8,16,32,64,128
  62. 1466 data 6,246,246,6,96,111,111,96
  63. 1468 data 221,187,119,187,221,187,119,187
  64. 1470 data 0,251,251,251,0,191,191,191
  65. 50000 rem titel anzeigen
  66. 50010 !tf0,24,40,1,32
  67. 50020 !tp(39-len(t$))/2,24,"[155]"t$;
  68. 50030 return
  69.